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1.  INTRODUCTION 


The  GRAPHIX  library  is  a  collection  of  FORTRAN  (and  Pascal)  callable 
subroutines  for  Tektronix  4014  terminals  connected  to  CDC  CYBER  or  Hewlett- 
Packard  1000  computers.  GRAPHIX  is  somewhat  simpler  to  apply  than  the 
Tektronix  PLOT-10  library  and  requires  less  overhead.  With  GRAPHIX,  it  is 
possible  to  generate  a  simple  X-Y  plot  with  only  one  subroutine  call. 

GRAPHIX  differs  slightly  from  PLOT-10  in  that  it  gathers  all  plot  informa¬ 
tion  into  an  internal  buffer  and  transmits  a  single  burst  to  the  terminal 
rather  than  outputting  a  line  at  a  time.  Thus,  nothing  will  seem  to  be 
happening  for  a  few  seconds  after  your  program  begins  to  execute.  Then  your 
plot  will  rapidly  fill  the  screen. 

The  GRAPHIX  routines  were  adapted  from  a  set  supplied  with  a  large  aerody¬ 
namic  code.  Consequently,  some  of  the  argument  lists  may  seem  peculiar. 
Nonetheless,  the  overall  ease  of  use  makes  them  attractive.  In  the  following 

■^ara^ranhs .  the  basic  routines  v<i  11  be  described  first,  in  the  order  in 
which  the''  should  be  called,  ffter  that,  the  ontiors  i  ill  be  described  in 
alphabetical  order. 

2.  APPLICATION  GUIDE 

2.1  SIMPLT  -  Do  it  all  in  one  call.  See  Figure  3,  Page  11. 

CALL  SIMPLT  (X,  Y,  NXY,  XTITLE,  YTITLE,  ILABEL,  ISAME,  IDEV) 

X,  Y  :  The  arrays  to  be  plotted,  100  max. 

NXY  :  The  number  of  points  to  be  plotted  from  the  X  and  Y 

arrays. 

XTITLE, YTITLE  :  Axis  labels.  Up  to  eight  characters  each. 

ILABEL  =  1  to  get  an  initial  plot. 

=  2  to  add  another  curve  on  the  previous  grid. 

ISAME  =  1  to  get  the  same  scale  on  X  and  Y. 

=  2  to  scale  X  and  Y  independently. 

IDEV  =  2  always.* 

*  The  original  plan  was  to  provide  interfaces  to  other  plotting  devices,  e.g. 
Calcomp,  but  that  option  was  dropped.  IDEV  is  still  checked,  however,  and  a 
value  other  than  2  suppresses  the  plot. 

2.2  The  basic  do-it-yourself  routines 

PINIT  initializes  internal  COMMON.  It  must  be  called  only  once,  before  any 
other  graphics  calls. 

CALL  PINIT  (IDEV,  IBAUD) 

IDEV  =  2  for  Tektronix  terminals.  Any  other  value  will  suppress 
plotting. 

IBAUD  -  30,  120,  or  960  depending  on  the  transmission  rate. 
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MNMX  examines  arrays  to  be  plotted  and  finds  their  extremes. 


CALL  MNMX  (X,  Y,  NXY) 

X,  Y  :  The  arrays  to  be  plotted.  There  must  be  at  least  two 
elements  in  each,  but  there  is  no  upper  limit. 

NXY  :  The  number  of  elements  in  the  X  and  Y  arrays. 

LIMITS  computes  scale  factors  from  the  extremes  found  by  MNMX  and  adjusts 
them  to  get  a  neat  grid. 

CALL  LIMITS  (ISAME) 

ISAME  =  1  to  get  the  same  scale  on  X  and  Y. 

-  0  to  scale  X  and  Y  independently. 

PLON  initializes  the  plot  buffers  and  passes  the  scale  factors  computed  by 
LIMITS  to  the  routines  which  move  the  cursor.  It  must  not  be  called 
before  the  scale  factors  are  established  and  it  must  be  called  any  time 
they  are  reset.  It  need  not  be  recalled  if  you  are  drawing  multiple 
plots  with  the  same  scale.  PLON  does  not  clear  the  screen. 

CALL  PLON  [No  arguments] 

CLEAR  clears  the  screen.  It  may  be  called  any  time  after  PINIT. 

CALL  CLEAR  [No  arguments] 

LABEL  draws  the  axes,  draws  grid  lines,  labels  the  grid  increments,  and 

titles  the  axes.  Its  use  is  optional.  If  you  don't  want  axes,  don't 
call  it. 

CALL  LABEL  (XTTL,  NCHX,  YTTL,  NCHY) 

XTTL  :  X  axis  title,  60  characters  (6  CDC  or  30  H-P  words)  max. 
NCHX  :  Number  of  characters  in  XTTL. 

YTTL  :  Y  axis  title. 

NCHY  :  Number  of  characters  in  YTTL. 

LINE  draws  a  line  through  your  array  of  points  and  add  symbols  if  you  wish. 

CALL  LINE  (X,  Y,  NPTS,  LTP,  ISYM) 

X,  Y  :  The  arrays  to  be  plotted. 

There  may  be  as  few  as  one  point  each. 

There  is  no  upper  limit. 

NPTS  :  The  number  of  points  to  be  plotted  from  the  X,  Y 
arrays. 

LTP  =  0  No  line.  Use  this  to  draw  a  single  symbol  at  X,  Y. 

=  1  Solid  line. 

=  2  Dashed  line  on  terminals  with  enhanced  symbol  at 
X,  Y. 


ISYM  =0  No  symbols 
=  1  Square 
=  2  Circle 
=  3  Triangle 
=  4  Plus  sign 
=  5  X 

and  so  on,  up  to  ISYM  =  14. 

HOME  moves  the  cursor  to  the  upper  left  corner  of  the  screen.  It  may  be 
called  any  time  after  PINIT. 

CALL  HOME  [No  arguments] 

PLOFF  sets  the  terminal  back  to  alpha  mode  and  flushes  the  plot  buffer.  It 
must  be  called  at  the  end  of  every  plot. 

CALL  PLOFF  [No  arguments] 

Thus,  the  basic  sequence  for  plotting  a  graph  is: 

CALL  PINIT  (2,120) 

CALL  MNMX  (X,  Y,  NPTS) 

CALL  LIMITS  (ISAME) 

CALL  PLON 
CALL  CLEAR 

CALL  LABEL  (XTTL,  NCHX,  YTTL,  NCHY) 

CALL  LINE  (X,  Y,  NPTS,  LTP,  ISYM) 

CALL  PLOFF 

This  is  what  SIMPLT  looks  like  inside. 

After  plotting  a  basic  graph,  you  may  add  to  it  by  calling  LINE  again  with 
another  pair  of  arrays,  by  adding  legends  and  labels,  or  what  have  you.  Just 
be  sure  to  call  PLOFF  when  you're  done. 


2.3  Options 

AMODE  sets  the  terminal  to  alpha  mode. 

CALL  AMODE  [No  arguments] 

ATKN  performs  parabolic  or  linear  interpolation  on  given  arrays. 

YA  =  ATKN  (X,  Y,  NP,  NI,  XA) 

X  :  Array  of  independent  variable. 

Y  :  Array  of  dependent  variable. 

NP  :  Length  of  X  and  Y  c rrays  [=  P1. 

NI  :  Not  used. 

XA  :  Value  of  independent  variable  at  which  interpolation 
is  performed. 

BELL  rings  the  bell  on  the  terminal,  but  only  after  PINIT  has  been 
called. 


CALL  BELL  [No  arguments] 

CHAPLT  prints  a  line  of  text  on  the  screen.  PLON  must  have  been 
called. 

CALL  CHAPLT  (XREF,  YREF,  CSIZ,  CROT,  JUST,  TITLE,  NCHT) 

XREF,  YREF  :  Initial  coordinates  for  positioning  the  line  of 
text.  XREF  and  YREF  are  in  user  coordinates, 
i.e.,  the  same  units  as  X,  Y  in  a  call  to  LINE. 

CSIZ  =  0.1  Sets  the  smallest  character  size. 

=  0.12  Sets  the  next  size. 

=  0.15  Sets  the  next  to  largest. 

=  0.2  Sets  the  largest  size. 

CROT  =  0.0  Prints  horizontally. 

=  450.0  Prints  vertically,  from  the  top  down. 

JUST  is  a  two-digit  integer  specifying  the  location  of  the 
printed  line  relative  to  (XREF,  YREF).  Each  digit  may 
be  any  of  1,  2,  or  3. 

First  digit  =  1  Start  printing  XREF. 

=  2  Center  the  line  at  XREF. 

=  3  End  the  line  at  XREF. 

Second  digit  =  1  Bottom  of  line  is  at  YREF. 

=  2  Center  of  line  is  at  YREF. 

3  3  Top  of  line  is  at  YREF. 

Thus,  permissible  values  for  JUST  are  11,  12,  13, 

21,  22,  23,  31,  32,  33. 

TITLE  :  The  line  to  be  printed,  60  characters  (6  CDC  or  30  H-P 
words)  max. 

NCHT  :  The  number  of  characters  in  TITLE. 

CURSOR,  when  called,  displays  the  cross  hairs  on  the  screen.  Move  them  to  any 
location  and  strike  any  character  and  the  carriage  return.  The  cursor 
location  (user  coordinates)  and  the  character  struck  will  be  returned 
to  the  calling  program.  Use  after  you  have  drawn  a  plot  and  called 
PLOFF. 

CALL  CURSOR  (XC,  YC,  KC) 

XC,  YC  :  Cursor  location  in  user  coordinates. 

KC  :  The  character  struck,  in  ASCII  Integer  representation. 

DATUM  is  an  alternative  to  MNMX  and  LIMITS,  if  you  choose  your  extrema 
carefully. 

CALL  OATLIM  (XMN,  XMX,  YMN,  YMX) 

where  the  arguments  are  the  extrema  of  the  X  and  Y  arrays, 
supplied  by  you.  Calling  LIMITS  afterward  is  a  good  idea,  to 
get  neat  scales. 

DRU  draws  a  line  from  wherever  the  cursor  happens  to  be  to  the  location  you 
specify.  The  terminal  must  be  in  graphics  mode  (see  GMODE,  below). 
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CALL  DRU  (UX,  UY) 
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UX  and  UY  are  the  user  coordinates  of  a  screen  location. 

GETLIM  returns  the  current  minimum  and  maximum  values  of  X  and  Y. 

CALL  GETLIM  (XMIN,  XMAX,  YMIN,  YMAX) 

GMODE  sets  the  terminal  to  graphics  mode.  It  is  used  primarily  with  DRU  and 
MVU. 

CALL  GMODE  [No  arguments] 

IBOUND  allows  you  to  change  the  inner  graph  boundary.  For  example,  you  could 
use  only  the  right  half  of  the  screen.  Call  before  LIMITS. 

CALL  IBOUND  (XII,  XI2,  YI1,  YI2) 

See  Figure  1  for  definitions.  Defaults  are: 

XII  =  1.0 
XI2  =  15.0 
YI1  =  0.0 
YI2  =  10.0 


i 

- 1  j YIl 

- J  YOl 

XI2  X02 

Figure  1.  IBOUND  Nomenclature 

The  defaults  specify  14  vertical  grid  lines  and  ten  horizontal  grid 
lines  (including  axes).  These  fit  nicely  on  the  Tektronix  screen. 

INC  lets  you  change  the  increment  by  which  the  X  and  Y  arrays  are  plotted. 
Call  before  MNMX  and  LINE. 

CALL  INC  (IX,  IY) 

IX,  IY  are  the  increments  by  which  the  X  and  Y  arrays  are 
plotted.  Default  is  1.  To  plot  every  other  point, 
set  to  2. 

MVU  moves  the  cursor  to  the  location  you  specify.  Precede  the  first  call  to 
MVU  with  a  call  to  GMODE. 


XOl  XII 
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UX,  UY  :  The  coordinates  of  a  screen  location  in  user 
coordinates. 


OBOUND  allows  you  to  change  the  outer  plot  boundary  (See  sketch  under 
IBOUND).  Call  before  LIMITS. 

CALL  OBOUND  (X01,  X02,  Y01,  Y02) 

Default  values  are: 

XOI  =  0.0 
X02  =  15.5 
Y01  =  -1.12 
Y02  =  10.5 

Think  of  the  units  of  XOI,  XII,  etc.  as  representing  grid  divisions. 

Multiple  plots  may  be  drawn  on  the  same  page  by  manipulating  the  plot 
boundaries  with  OBOUND  and  IBOUND.  For  example, 

CALL  OBOUND  (0.0,  10.0,  0.0,  14.0) 

CALL  IBOUND  (1.0,  10.0,  8.0,  14.0) 

CALL  PLON 


Then  call  other  routines  as  necessary  to  draw  the  first  plot. 

CALL  IBOUND  (1.0,  10.0,  1.0,  7.0) 

CALL  PLON 


And  call  other  routines  to  complete  the  second  plot.  See  Figure  2, 
below.  Figure  4,  Page  13. 
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Figure  2.  Multiple  Plots  with  OBOUND  and  IBOUND 
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PAGE  will  make  the  program  wait  while  you  admire  the  picture,  make  a  copy,  or 
whatever.  When  you  type  in  any  character  followed  by  a  carriage  return, 
it  clears  the  screen  and  returns  control  to  the  calling  program. 

CALL  PAGE  (I PAUSE) 

IPAUSE  =  1  :  Ring  the  bell,  wait  for  input.  When  something 
is  sent,  clear  the  screen  and  return. 

=  0  :  Clear  the  screen  and  return. 

PBELL  rings  the  bell  on  the  terminal,  but  does  not  require  PINIT  to  be  called 
first,  i.e.  PBELL  may  be  called  any  time. 

PCLEAR  clears  the  screen.  Like  PBELL,  it  may  be  called  any  time. 

CALL  PCLEAR  [No  arguments] 

PIE  draws  circles  or  pie  charts  with  optional  shading. 

CALL  PIE  (XC,  YC,  RADIUS,  PERC,  SPAC,  NPERC) 

XC,  YC  :  The  center  of  the  circle,  in  user  coordinates. 

RADIUS  :  The  radius  of  the  circle,  in  user  coordinates. 

PERC  :  An  array  of  percentages  for  the  pie  ^hart.  For  a 
plain  circle,  there  is  only  one  element,  whose 
value  is  100.0. 

SPAC  :  An  array  of  spacing  increments  in  user  coordinates 
for  shading  the  circle  or  pie  chart.  For  a  plain 
circle,  there  is  only  one  element  and  its  value  is 
the  same  as  RADIUS. 

NPERC  :  The  number  of  elements  in  PERC  and  SPAC.  For  a  plain 
circle,  NPERC  =  1. 

For  a  shaded  circle,  set  SPAC  to  the  interval  you  want  between  rings, 
e.g.  0.1,  leave  PERC  at  100.0  and  NPERC  at  1.  PIE  will  draw  concentric 
circles  with  radius  decreasing  by  SPAC  until  the  smallest  radius  is  less  than 
or  equal  to  SPAC.  See  Figure  5,  Page  15. 

SETSIZ  lets  you  change  the  size  of  the  printed  characters. 

CALL  SETSIZ  (ISIZE) 

ISIZE  =  1  Smallest 

=  4  Largest 

3.  WHERE  TO  FIND  IT 

The  GRAPHIX  library  is  maintained  on  permanent  file  GRAPHIX,  CY  =  990,  ID 
ID  =  P820317,  SN  =  AFML,  at  the  ASD  Computer  Center.  A  modified  version  is 
available  for  Hewlett-Packard  1000  computers.  Source  code  (Fortran  and 
Compass  for  CDC,  Fortran  and  Pascal  for  H-P)  is  available  from  the  author. 
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Following  are  a  few  examples  illustrat  ““O  the  basic  routines  and  some  of 
the  options  in  GRAPHIX.  The  Fortran  program  FIGRI  (Page  9)  and  the  Pascal 
program  PARABOLA  (Page  6)  will  both  produce  Figure  1.  Program  TWO  (Page  12) 
shows  how  to  manipulate  the  plot  boundaries  with  OBOUND  and  IBOUND.  Program 
THREE  (Page  14)  illustates  the  use  of  subroutine  PIE. 
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FTN4.L 

PROGRAM  PARAB 
DIMENSION  X  (26),  Y  (26) 

DO  1  I  *  1 ,  26 

X<I)  »  0.2  *  FLOAT  (1-1) 

Y <  I )  *  1  .  0  +  <X<I>  -  2.5)  *■*  2 

1  CONTINUE 

H-P  FORTRAN  ALLOWS  ONLY  FIVE-LLTTER  MODULE  NAME 

CALL  SMPLT  (X,  Y,  26,  8H  X  AXIS  ,  3H  Y  AXIS  ,1,1, 
*  2) 

READ  *,  IGO 
END 


PROGRAM  PARABOLA  (INPUT,  OUTPUT ) ; 

TYPE  PBL  *  ARRAY  11..26]  OF  REAL; 

AXIS  LABEL  =  PACKED  ARRAY  11.. 83  OF  CHAR; 

SHORT I  «  -16000. . 16000; 

OAR  X,  Y  !  PBL; 

I  :  SHORT  I; 

XLAB,  YLAB  i  AXIS  LABEL; 

C  i  REAL; 

PROCEDURE  SMPLT  <X,  Y  i  PBL;  NPTS  :  SHORTI ; 

XLBL ,  YLBL  i  AXIS  LABEL;  ILBL,  LNSCL,  IDEV  :  SHORTI) 
EXTERNAL; 


BEGIN 

C  : =  0.0; 

FOR  I  : »  1  TO  26  DO 
BEGIN 

Xtll  : =  0.2  *  C ; 

YII1  :=  1.0  +  SQR  (X[  I  1  -  2.5); 

C  :  =  C  +  1.0 
END; 

(*  PLOT  *> 

SMPLT  (X,  Y,  26,  '  X  AXIS  ' ,  '  Y  AXIS  ',  1,  1,  2); 
READLN  <I> 


PROGRAM  TWO  (INPUT,  OUTPUT) 
DIMENSION  X  (25),  Y  (25) 

A  =1.0/12.0 

B  =  A  -  1.0 

DO  1  I  =  1  ,  25 
X(  I )  =  B  +  A  *  FLOAT  ( I ) 

Y ( I )  =  1.0  +  X ( I >  ##  2 

CONTINUE 

CALL  PINIT  (2,  120) 

CALL  MNMX  (X,  Y,  25) 

CALL  OBOUND  (0.0,  8.0,  0.0,  14.0 
CALL  I BOUND  (1.0,  8.0,  8.0,  14.0 
CALL  LIMITS  (1) 

CALL  PLOW 
CALL  PAGE  (1) 

CALL  LABEL  ("X  AXIS",  6,  HY  AXIS 
CALL  LINE  (X,  Y,  25,  1 ,  1> 

CALL  HOME 

CALL  PLOFF 

CALL  MNMX  (Y,  X,  25) 

CALL  I BOUND  (1.0,  6.0,  1.0,  7.0 
CALL  LIMITS  (1) 

CALL  PLON 

CALL  LABEL  ( "Y  AXIS",  6,  'X  A  ’’  '! 
CALL  LINE  (Y,  X,  25,  1,  1') 

CALL  HOME 
CALL  PLOFF 
CALL  PAGE  (1) 


PROGRAM  THREE  (INPUT,  OUTPUT) 

DIMENSION  D  (4),  PERC  (3),  OP AC  <3> 

DATA  D  /  0.0,  10.0,  0.0,  10.0  / 

DATA  PERC  /  8.0,  15.0,  23.0  / 

DATA  SPAC  /  3  *  2.0  / 

CALL  PINIT  (2,  120) 

CALL  MNMX  <D(1),  D<3),  2) 

CALL  LIMITS  <1) 

CALL  PL.ON 
CALL  CLEAR 

SIMPLE  CIRCLE  (R  =  2.0,  XC  4  RC  ARE  2.5,  7.5) 

CALL  PIE  (2.5,  7.5,  2.0,  100.0,  2,0,  1) 

CONCENTRIC  CIRCLES  (RMAX  *  2.0,  DR=0.4, 

XC  4  YC  ARC  7.5,  7,5) 

CALL  PIE  (7.5,  7.5,  2.0,  100.0,  0.4,  1) 

PIE  CHART  WITHOUT  SHADING 
(R  =2.0,  XC  4  YC  ARE  2.5,  2.5) 

CALL  PIE  (2.5,  2.5,  2.0,  PERC,  SPAC,  3) 

SAME  PIE  CHART  WITH  SHADING. 

(XC  4  YC  ARE  7.5,  2.5) 

SPAC ( 1 )  »  0.4 

SPAC(2)  =0.2 
SPAC(3)  =  0.1 

CALL  PIE  <7.5,  2,5,  2.0,  PERC,  SPAC,  3) 

CALL  PLOFF 
CALL  PAGE  (1) 

END 


i 


END 
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